home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / palette tools / colorsaver / cycle.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-07  |  1KB  |  61 lines
  1. /*
  2.  * ColorSaver ARexx example
  3.  * ColorSaver needs to be running.....
  4.  *
  5.  * Cycles through several different screen palettes, then restores the 
  6.  * original colors...
  7.  */
  8.  
  9. Options FailAt 100
  10. Options Results
  11.  
  12. Delay = 3
  13.  
  14. if ~show(p, 'COLORSAVER.1') then
  15. do
  16.    Say ' '
  17.    Say 'Please start COLORSAVER first...'
  18.    exit
  19. end
  20.  
  21. Say ' '
  22. Say ' This ColorSaver ARexx example will cycle through several different'
  23. Say ' palettes pausing for 'delay' seconds each, and then will restore your'
  24. Say ' original colors.  You could of course modify it to cycle your'
  25. Say ' screen colors at regular intervals (to keep you from getting bored!;)'
  26. Say ' or have it called to set a specific palette when a certain event'
  27. Say ' occurs, like "new mail", etc...'
  28. Say ' '
  29.  
  30. Address COLORSAVER.1 STOREPALETTE
  31.  
  32. Address COLORSAVER.1 LOAD  'Elm.rgb4' 
  33. Address COMMAND wait delay
  34.  
  35. Address COLORSAVER.1 LOAD  'MWB.rgb8' 
  36. Address COMMAND wait delay
  37.  
  38. Address COLORSAVER.1 LOAD  'Forest.rgb4' 
  39. Address COMMAND wait delay
  40.  
  41. Address COLORSAVER.1 LOAD  'Muave.rgb4' 
  42. Address COMMAND wait delay
  43.  
  44. Address COLORSAVER.1 LOAD  'Royalty.rgb8' 
  45. Address COMMAND wait delay
  46.  
  47. Address COLORSAVER.1 LOAD  'Ocean.rgb4' 
  48. Address COMMAND wait delay
  49.  
  50. Address COLORSAVER.1 LOAD  'Princess.rgb8' 
  51. Address COMMAND wait delay
  52.  
  53. Address COLORSAVER.1 LOAD  'Smoke.rgb4' 
  54. Address COMMAND wait delay
  55.  
  56. Address COLORSAVER.1 CANCEL
  57.  
  58. Say' ...All Done...'
  59.  
  60.  
  61.